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SERVICE 


Over Easter my printer packed up agin - not SHARP's fault: | was 
involved in a slight accident - and this is why the magazine is 
late. | sent it off for repair on the Tuesday after Easter, and got 
it back 4 days later. The results of my enquiries about service 
seem to indicate that SHARP are genuinely anxious to help customers, 
and do their best: but when they are under pressure, or it is 

ult to help in a particular case, they are not always able 
to implement their good intentions. It would seem that the PC 1500 
very seldom goes wrona, unless misused: so perhaps their unexpended 
repair facilities are a tribute to the sturdiness and precision of 
the machine. 


TANDY are more impersonal. My cassette-recorder was perhaps 
damaged at the same time, and has gone to them for repair. | took 
it in to their Centrepoint Computer Centre last Wednesday, and 
confidently expect it back a week later. Apparently all repairs 
are collected from the branch each Thursday, and are normally 
returned the following Thursday. | am keeping my fingers crossed! 


Ake aR AD 


!t is sad to have to relate that SHARP have shown themselves 
extremely allergic to criticism of them that has appeared in 

this magazine. They do not appear to appreciate the very great 
Support this magazine gives them, Let me take this opportunity 

to make it clear both to SHARP and to subscribers that no considerations 
either personal or commercial will deter STATUS 1500 from printing 
what it believes to be the truth: we shall continue to criticise where 
any~ criticism is due: and to praise where praise is due. We do 

not intend to print in every issue what an excellent machine 

the PC 1500 is. We all know this. It is because we like the 

machine that we are sensitive to any imperfections in back-up. 
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MAILING LIST 


This is the program | use for printing out the labels when sending ouz 
the newsletter, and controlling the subscription list. It has advantages 
and disadvantages compared with @ conventional database. All data mus: be 
programmed in; it is designed for my own use, would have to be adapted 
for any other use. However keeping 211 data in program form saves much 
time - just a CLOAD, and its ready to run: no need to spend time with 
INPUT # . Being only about 3K long leaves plenty of room for data. 

Any editing is done by altering the program: any ‘search’ application 
must be added as @ subroutine, and deleted after. 


Lines 1 - 5 DiMension the variables, and run through the names on the 
screen to check on correct formatting of data: on error it will halt 
on or before the wrongly formatted entry. (Must be RUN before the rest 
of the program can be used). 


Lines 6 - 120 print out the labels. If you want @ single label you 
can specify it by number: SREAK to stop further labels being printed. 
"repeat" refers to the number of times it overwrites the same label: 
useful with pens getting dry : "repeat 2 " gives 2 good impression. 


Lines 1010 (which is entry no.1) onwards hold data. Note that the 
subscription information and name are always on @ line ending in 0, 
thus allowing lines 10000 to 10002 tc LLIST subscription information 
and names only, without addresses. The second number (single digit) 
gives the number of string entries including the name. This number 
must be correct. 


Line 13000 primes the Reserve keys for the symbols used most in 
programming in new names and addresses. 


Execute by RUN, DEF X , DEF L , DEF V 


\ERESTORE + INPUT 68:CS1ZE 2+0 1@3@:DATA 333222, 
"SPEED" 3S: WAIT 20:FOR F=1TO L 4, "Y, ANDROPO 
s 8B:READ As(F> u" 
2:DIM AS$¢S)*24 aa FOR G=1TO R} 1831: DATA 
3:0N ERROR GOTO 98: GLCURSOR x, Y enL IN" 
5 TLPRINT ASCP) Ou", “USSR” 
“Foe seit B: tke v=y-K S998: DATA este 
READ AS(J): 
NEXT J:PRINT @ 2CS1ZE 2: Boose) cpa 
Be heats Ran 18080: "L"FOR F=101 
GoTo 4 ROTATE 126070 Bae sees Gy 
S:WAIT 333: PRINT Ghpree rie = 
3" "30801: e.8sDATA 131001, seer er 
siepenieavoa SORA ICHE 18002: NEXT F 
ERROR GOTO 7 1811:DATA "1@ Dow APOC OE Yee aes 
PiINPUT “start a NING STREET" PT re 
1 "3X: RESTORE ) "WHI TEHALL" fai esare 
(X14 1882): ; "LONDON", * asi e 
INPUT “repeat we é jaeaieenee 3 
"5R1 1028: DATA 222622, IPOOIABES 
10:GRAPH_: ROTATE 5, "PRESIDENT 
I:RESTORE X¥10 REAGAN" 
41088 182):DATA "THE WH 
ITE HOUSE", 
PENNSYLUANIA 
LCURSOR <2, 8 AUENUE" 
SIZE 2: 1022:DATR “WASHIN 
LFRINT & GION D.C", “U 
40: U2(LK7):kK=20+1 .S.R" 


OxU 
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DISTRESS SIGNALS 


JAMES LOTHIAN asks "What is the purpos2 of the commands PEEK#, POKE#, 
and OPN 7! 


opN is used in connection with the $232 interface. PEEK# and POKE# 
access the "ALTERNATIVE MEMORY BUFFER", which is used mainly by the 
CPU . The series "PEEK,POKE & MEMORY" will eventually deal with these 
in greater detail. 


CHRISTOPHER LEDSAM asks if | can recommend a good book on programming 
in machine code in general. 


I do not know of one: can any reader help? The difficulty is that 
most information published is with reference to a particular chip, 
such as the 6502. Obviously one must use whatever code the chip . 
understands. The SHARP chip in the PC 1500 is custom-made for them, 
and therefore I cannot see information , except from Sharp, being 
of much use. 


ALLAN THOMAS writes from New Zealand that he tried my 'RENUMBER' program, 
and it renumbered every line as 10. Do | know what went wrong? 


No, I do NOT know what went wrong, since you not bother to enclose 
a@ listing of what you were trying to run. Your confidence in my ab: 
to debug your program without even seeing it is excessively flattering. 
Very probably you wrote Sl] instead of SI in line 60000 or line 60130. 
The following are very easily confused, particularly in small sizes: 


letter I and number 1 
letter U and letter v 
number 0 and letter 0 and symbol @ 


If this advice does not solve vour problem, please write again, 
and ENCLOSE A LISTIN 


FRANCIS AKINWUNMI is trying to write a subroutine which will make a 
word (A$) disappear off the left-hand side of the screen, as it 
can do on the right-hand side. 


Imagine that you are standing at a terminus: a train disappears 
into a tunnel in the distance. But it cannot disappear from view 
into the buffers where you are standing! You must create the illusion 
that it does so, by successively chopping bits off the front. Try 
something like: 


101: N = LEN AS: WAIT 9 


102: CURSOR 0: PRINT RIGHTS (A$,N):CLS 
J03: W Goro 102 


In general,many’probléms seem insoluble because they are formated 
too narrowly. Look through the Instruction Manual, and back numbers 
of this newsletter, and see if any of the techniques could be 
relevant to your problem: then reformulate the problem in terms 
of that technique. It very often works. 


TIM LANDON writes "Here is a better program than yours for Demodulating 
Infuriants. Please publish it qutck~ before someone else markets it." 
Unfortunately | have not been able to make it work in the way intended, 


and since his letter is dated "April Fools Day, in MidChannel"' | question 


whether | am meant to,. More news - perhaps - next month. 
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PEEK, POKE & MEMORY - IV 


The USING instruction is cumbersome to use. It must be written out in 
full every time; if you wish to make use of the "sge..'' facility for 
formatting words, it automatically cancels the USING instruction for 
numbers. However by the use of PEEK & POKE this facility can be addressed 
indirectly, and words and numbers can both be formatted simultaneously. 


The USING counters are from 30869 to 30872. 


30869 switches the USING format on.(i for On, or 0 for Off)- 
30870 holds the format for numbers. (add 1 for the sign,vi 
30871 formats strings, as by "segs..." 

30872 is for numbers after the decimal point(add 1 for the point) 


Try this: 99: INPUT AS: POKE 30869,1,LEN AS-1 : LPRINT AS: LPRINT. 

"5. LEN AS. 
and you will find that the length of the string is printed immediately 
under the last letter of the word. With a single digit this could be 
done by an LCURSOR instruction: but if the number is 2 digits, LCURSOR 
woulc print the first digit under the last letter. Try making AS a 10 or 
Ji letter word, and you will see the difference. 


ible or not) 


If into 30869 you POKE 65 instead of 1, you will get the ‘asterisk fill’. 
If you POKE 30869, 33, you will get the + sign where appropriate. 
POKE 30869, 97 will combine both formats. (97 = 64 + 32 + 1) 


Try this: 11: 0$="HEAVEN 
12: LPRINT JS; J 


234.567: POKE 30869,65,6,5,2 


Of greater importance are the Main System Pointers, which run from 
30821 to 30826. Readers who have tried any of the ‘utility’ programs 
in this newsletter may recognise these numbers. They are in pairs, 
working in '256ary' 


30821 and 30822 indicate the start of program space. 256 *(PEEK 30821) 
+ PEEK 30822 will give the same as STATUS 2 - STATUS 1 


30823 and 30824 give the end of program: and correspond to STATUS 2. 
30825 and 30826 give the start of the SEARCH/EDIT area. You may remember 
they were used in the MERGE process in last month's DISTRESS SIGNALS, 
and in SUPERMERGE . 


All these pointers can be manipulated by POKEing different values into 
them, but. generally only in co-ordination with other code. For instance, 
you cannot merely delete the end of a program by altering the values in 
30825 and 30826: they must coincide with the End-of-Program marker, 
which is always 255. Altering the 30821 and 30822 values may delete 

the beginning of your program, if you find the right address for your 
new start.But eXperiment with care: and PEEK the velues you are altering, 
so that that you can POKE them back if things go wrong. Study the 
utility programs, and see how they are used. There are no short cuts. 


You will note how 30821 and 30822 normally hold 56(or 64, or 32) and 197 

The first figure corresponds to a number of K ( 256 is a quarter K) 

and_197 represents the RESERVE area - 9 bytes for pointers, 78 for templates, 
and 110 for RESERVE programs. 


[ To be continued } 
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AIRCRAFT CARRIER 


A miniature 'landing' program in 581 bytes. Execute by Cursor movements. 
Crashes if you go too high or too low. Two options: ‘Easy! is hard, 
‘Hard! is horrible. 


@:H=1: INPUT S82: GCURSOR Y. 
“EASYCE) OR HA GPRINT 8383232 
RDCHD? "3U:CLS 23 22323232383 

S:BEEP 1:BEEP 38 _. 83 
583: 1F 2>63AND Y=P 
: GOTO sea 
RND 118: GOSUB S64: 1F (2>630R Z<i° 
555:P=12+RND 1 2AND Y<>PGOTO 
2B 282 
13:0N ERROR GOTO S@7:R=RND SIF R=3 
728 XULET P=P+2- 
SS: AS=1NKEYS : RND 3 
GOTO iaB+asc A See: G0SuB 555: 6070 
33 
555:HA1lT CRND 1887 
RND 42)>%U 


: RETURN 

1 -UX¢3-RND WAIT 62:CLS 
GOTO 508 GCURSOR Y 
+1+U*C(2-RND GPRINT 2343832 
GOTO Sea 3 
—1-U*C2-RND 
GOTO See 
+1+U%(3-RND 
GOTO SB 
OX: 22=2¥2: 
2>63LET 22= 


GPRINT @;98;64 
364364383645 64 
36439652; 


“SHOPPING LIST! by DAVE JACKSON 


The main interest in this miniature is the use of PAUSE Li 
- PAUSE followed by a semi-colon is a technique I have not met before. 


5:"SHOP":CSIZE WAIT 
10:CLS:READ L$: Q$='"" 
15:PAUSE LS; 
20: INPUT Q$ 
25:1F QS = '"' THEN 20 
30:1F ASC QS = 48 THEN 10 
4O:LPRINT QS+'' "+LS 
50:GOTO 10 
900:DATA "xxxxx"","yyyyy"" etc.ete 


PROGRAM EXCHANGE 


ANGUS CRAWFORD of ORION AIRWAYS has an AIR NAVIGATION program which loads 
the Latitude, Longtitude & Magnetic Variation of Fixed Navigation Points 

and reads out bearings. This is a practical program which he uses constantly 
while flying. 


J.K.GAUTON has composed a STAR FINDER program which will give the position 
in the sky of the major stars at any time or place. 
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DATABASES Software Review 


* EASIFILE * DBASE * EXECUTIVE * 


1 am not fond of general database systems; | would prefer to sit up 

half the night writing a specialised program for a particular application - 
and perhaps the next five nights debugging it! But the average business 
user has neither the time nor the energy to do this. He wants something 
that works first time. He is prepared to spare a limited amount of his 
time learning the use of the database: after which he wishes to forget 
about the mechanics of it, and just use it. It is in this light we must 
consider the three database systems named above. EASIFILE and DBASE are 
conventional databases, whereas EXECUTIVE is more of a document-handl ing 
system, with some number-crunching facility, so it is not entirely fair 
to compare it directly with the others. But then | have no intention of 
being fair: the average business user is not particularly tolerant either. 


EASIFILE is the most elaborate of the three,and has the most facilities. 

It comes with an excellent manual, written in ‘tutorial’ form. Nevertheless 
being impatient | got into a muddle with it, not understanding initially 
the need to enter at least one "Report Format" before anything could 
print out. The program is largely menu-driven, and 1 did not like the 

flow from menu to menu. The main faults are faults of the PC 1500, rather 
than of the program; | feel the large number of facilities offered are 


top-heavy for maximum 10K, of which over 4K is occupied by the program itself. 


Also, the slowness of CLOADing and INPUTS data must limit its use. (Same for all). 


The author very fairly points out some limitations , and gives a most 
useful explanation of what a Database 


s. 


DBASE is the one | found simplest. It has less facilities than EASIFILE, 
- it only searches on one level, instead of three - but | think this is 
adequate considering the limited number of records thet the program will 
hold. It is accompanied by a listing. The manual is less elegant, being in 
broadsheet form. Perversely, | found this easier to work with. The program 
is only faintly marred by instructions on how to prime a function key 
in Reserve mode, to give GOTO 1 € . Quite unnecessary : the following 
simple line of program could have taken care of this , without taking 
the user out of RUN mode. 

9999: "S" POKE STATUS 2 - STATUS 1-111, 1, 241, 146, 49, 64, 0 
and then DEF S would have done the priming. 


EXECUTIVE is somewhat different. It is designed for document handling. 
All entries occupy exactly 26 bytes, neither more nor less. Records 

are not subdivided into fields: indeed the divisions between records 
disappear whenever you exemine a different record, and must be re-erected, 
which | found irritating and confusing. The number-crunching facilities 
could be useful. | also found it difficult to clear data-except item 

by item. It has been pointed out that adding a subroutine would do 

+ but the coding is extremely sophisticated: and | would not find 
this easy to do. However the purpose cf this program, as | have mentioned, 
is not exactly that of a conventional database, and no doubt there are 
uses for which it has greater advantages than indicated in this review 


Overleaf various features of the three are compared in tabular form. 


EASIFILE by Ian Traynor is distributed by ELKAN ELECTRONICS 
DBASE by Wadsworth is distributed by KICROS FOR MANAGERS 
EXECUTIVE by MiCROL distributed by MICROMAIL, 38 Burlei 


h ST.Cambridge. 
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DATABASES COMPARED 


Easifile Dbase Executive 
SORT Yes YES No 
by specified field YES YES NO 
specified range of records No YES No 
SORT NUMBERS YES must be equal length NO 
RECORDS FORMATTED YES YES NO 
FLEXIBLE LENGTH FIELDS YES YES must be 26 chrs. 
PRINT SIZE OPTIONS YES No one on each sidé 
FLEXIBLE SIZE RECORDS No No 
FIELDS NAMEABLE YES YES NO 
RECORDS NAMEABLE No No Yes 
SIMPLICITY OF MENU No YES Yes 
MENU/COMMAND DRIVEN MENU MENU COMMAND 
SIMPLE TO CLOAD YES YES NO 
SEARCH LEVELS 3 1 start of lines only 
(including comparisons) 
NEED TO UNDERSTAND PROGRAMMING NO V.SLIGHT Yes 
EDITING BY..... FIELD RECORD LINE 
Manipulate NUMBERS SEPARATELY NO NO Yes 
LISTING PROVIDED NO YES No 
CLEAR ALL DATA simple simple tedious, unless 
subroutine added 
DELETE DATA + SAVE FORMAT NO YES no formats 
WORKS ON 4k limited NO No” 


MAX FIELDS PER RECORD 10 20 255 
MAX RECORDS 256 255 255 
MAX CHRS. PER FIELD 16 16 26 
MAX CHRS. PER RECORD 80 80 6630 
MAX RECORDS, EACH 80 CHRS. 61 63 85 
MAX RECORDS, EACH 10 FIELDS 

OF 8 CHRS 61 63 25 
DISABLES ‘BREAK’ KEY No NO YES 
TOTAL COMMANDS/MENU CHOICES 26 23 30 
GETTING STARTED: 

ASPIRINS NEEDED 2 0 4 
LENGTH ak 4K 23K 
SAFECRACKER, 


In last month's PEEK & POKE | described how programs could be given a_ 
measure of protection, by concealing lines from LLISTING. Here is a brief 


program for stripping that protection. MERGE it, or add it by hand to the 
program to be stripped. It is so short that it can be deleted manually after use. 


10:"="Pi=STATUS 2 70: 1F E2¢>13LET K 


“i! SK+]HEL=E1-1t 
aoe GOTO 68 
:DO=PEEK P1 8Q:1F PEEK (E1-3 

OKE Pl, 13 
=STATUS 2-239 ney 


SO:K=1:E1=E1-1:1F BBEEP 2:E1=81 


EL<PIPOKE PI,P 
2:STOP LIST: END 

68:E2=PEEK El: 
PRINT E1 


=2: +2 
88:POKE £1+3, K-3 
188:GOTO S@ 
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FROM THE KEYBOARD 


When changing pens the colour you want to change is always the last one 
to turn up. In fact if you call the previous colour before you key for 
changing , the one you want will appear for disposal. For instance, 

if you wish to change pen 3, call COLOR 2 before going into ‘change! 
position. If you want pen 1, key COLOR 3 first. 


ROUNDING OFF negative numbers sometimes requires thought-ABS INT (-3-4) 
and INT ABS (-3.4) do not give the same result. In the first case 

the INT is done first. INT 3.4 gives the next lower whole number, 
which 1s 3, but the next whole number lower than -3.4 would be 4. 

If you wanted the result 3 you would need to key 


=3-4 
= (INT ABS X)* SGN X 
To round off to the nearest whole number just add 0.5. Thus 


INT (3.3 +0.5) gives 3 , whereas INT (3.8 + 0.5) gives 4 . For 
negative numbers, work it out for yourself. 


SPACE-SAVING. \f you wished to DIMension 250 numbers , by DIM A(250), 
at 8 bytes per number, this would occupy 2000 bytes. But if they 
were all not more than 4-figure numbers , you could DIM AS$(250) 
and operate on A= VAL A$(n) whenever you wished to use them. To 
put 2 number back into variable AS(n), merely : AS(n)= STRS A . You 
would then have reserved only 1000 bytes instead of 2000- 


SOFTWARE RECEIVED 


EASITREND a statistical forecasting program by IAN TRAYNOR 


PROCOS 2 "number-crunching” program from MiCROL 


Both these very useful programs will be reviewed next month , 
or soon after. 


MINDBOGGLE CORNER 


First, a quickie. No prizes. On the back of your PC 1500 it is described 
by two of the following words: 

POCKET/ELECTRIC/ELECTRONIC/MI CROCOMPUTER/COMPUTER/CALCULATOR 

DON'T LOOK YET! Which two words? Write down your answer before you look. 


The main competition this month is to COMPOSE A MINDBOGGLER FOR THIS CORNER. 
Closing date: August ist. The entries | find suitable - quite arbitrarily - 

will be printed’on this page, and the problem that ettracts the most -entries 
will be the winner. Prize: £10 book-token. 


IDBOGGLER received disappo: 
nnot write a program to design a 
merely cannot be bothered to, I shal 


Ss. Whether subscribers 
colored elliptical spiral, or 
never know. 


The winner was C.P.UNDERWOOD , home in 128 bytes, closely followed by 
JOHN MACK with 135 bytes. A brilliant entry which took only one line of 
80 bytes was unfortunately disqualified. 


28:FOR C=2TO 360: 
1Q:QRUN :GRAPH : NeeEe 
INPUT “P1534, ° X=A¥SIN C:Y=Bx 
82°38, "a" 3D: 
GLCURSOR (A, BD 
:SORGN 


GLCURSOR (6; BD GoTo 228 . 37 
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OUTLINE MEMORY MAP 


UNEXPANDED / 8K * bactery 8 4K * ALTERNATIVE 
ae TN MEMORY BUFFER" 
NOT 
USED 
reserve 
NOT NOT ores 
USED isis \ 
| | 
program 
area ay 
| USED 
reserve 
area i 
program 
area 
eet | 
7 ——| 
reserve 2 
ares i reserve & 
program 
— 
area 
prograt | 
area | 
NOT 
USED 
i NOT USED 
| 
| 
}——__—+ 
POINTERS, COUNTERS, BUFFERS, etc (RAM) | 
fe 


CE 158 interface SYSTEM PROGRAM (ROM) 


CE 150 printer SYSTEM PROGRAM (ROM) 


PC 1500 SYSTEM PROGRAM (ROM) 
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11 Bury New Road, Prestwich, Manchester M25 8JZ Telephone 061-798 7613 (24-hour service) 


EL an 


vole or co hey words. Nax.-n0. of reconis per tape 235. 
al for nailing eta, sual wtock 


EASI-TREND 1500 
A statistical forecasting program 


pt 
Needs 
Posts quai 


Your partner computing 


Micros for Managers 


PC15U0 with FREE DBASE data base management software worth £24.95 
£169.95 each Call for quantity discounts. 


SOFTWARE for PC1500 (also available for PC1211/1251) 
3-D VIEW Design package for architects and kitchen planners. £24.95 


PERT Complete set of programs identify critical path ,allocate staff 
£24.95 

APD AIR PIPE DUCT All IHVE Formulae 18 design programs 

for air,water flow in rectangular. circular pipes, ducts. 


BOOKS : 
7 Beat a To order, 

ALL ABOUT INTEREST" McElwain enclose your remittance and post to 
Home Finance, Consumer Loan cests, Mleros tor Managers, 

See ae By oe 149 Gloucester id, London, SW7 4TH. 
Disc. Cash Flow 186 pages, Flexbound SESE LETS 


Publ. at £9.95, Now only £4.95 +50p P&P 


